﻿Public Class Ejercicio1
    Dim contador As Integer = 1
    Private Sub btn_Aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Aceptar.Click
        ' MsgBox("Has pulsado aceptar el siguiente número de veces: " & contador & ".")
        Me.ProgressBar1.Increment(20)
        contador = contador + 1
        Me.txt_multilinea.Text = "Hola Mundo"

    End Sub



    Private Sub btn_Borrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Borrar.Click
        Me.txt_multilinea.Text = ""
    End Sub

    Private Sub btn_Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Salir.Click
        End
    End Sub
End Class
